home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / games_d / rtankexe.zip / TESTAUTO.TXT < prev    next >
Text File  |  1989-02-13  |  232b  |  31 lines
  1. make a
  2. make dir
  3.  
  4. auto 1
  5. lock 1
  6.  
  7. set  dir,1
  8.  
  9. :again
  10. rand a,16
  11.  
  12. jeq dir,0,:right
  13.  
  14. :left
  15. left
  16. add a,-1
  17. jgt a,0,:left
  18.  
  19. set dir,0
  20.  
  21. goto :again
  22.  
  23. :right
  24. right
  25. add a,-1
  26. jgt a,0,:right
  27.  
  28. set dir,1
  29.  
  30. goto :again
  31.